Module Module1

    Sub Main()
        'Simple Test App
        Dim log As New DistriLog.Local.LocalLogger
        log.Log("Test Log", DistriLog.Local.LogTypes.Information, "Logger Test")

        Console.WriteLine(Environment.TickCount)
        log.Log("Test Log", DistriLog.Local.LogTypes.Information, "Logger Test")
        Console.WriteLine(Environment.TickCount)
        log.LogExtended("ExtendedLog", DistriLog.Local.LogTypes.Information, System.Environment.StackTrace, "", "ExInfo", "Logger Test")
        Console.WriteLine(Environment.TickCount)
        log.LogAsync("Async", DistriLog.Local.LogTypes.Warning, "", "", "Logger Test")
        Console.WriteLine(Environment.TickCount)
        log.Dispose()
        Console.Read()
    End Sub

End Module
